home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / dms-gepackt / 11_95 / apd-11-95-2.dms / apd-11-95-2.adf / Amiga_E / Beispiel2.e < prev    next >
Text File  |  1995-10-09  |  526b  |  23 lines
  1. DEF name[20]:STRING, a, b,
  2.     hilf[10]:STRING
  3.  
  4. PROC main()
  5.    WriteF('Guten Tag!\n\nBitte geben '+
  6.           'Sie Ihren Namen ein: ')
  7.    ReadStr(stdout,name)
  8.  
  9.    WriteF('Bitte geben Sie Zahl a ein: ')
  10.    ReadStr(stdout,hilf)
  11.    a:=Val(hilf,NIL)
  12.  
  13.    WriteF('Bitte geben Sie Zahl b ein: ')
  14.    ReadStr(stdout,hilf)
  15.    b:=Val(hilf,NIL)
  16.  
  17.    WriteF('\n\nIch habe für Sie, \s, ' +
  18.           'ein wenig gerechnet:\n',name)
  19.    WriteF('\d+\d = \d\n',a,b,a+b)
  20.    WriteF('\d-\d = \d\n',a,b,a-b)
  21.    WriteF('\d*\d = \d\n',a,b,a*b)
  22. ENDPROC
  23.